home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 16 / Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_A.d64 / rox _ deutsch (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  201 lines
  1. 10 print"[147]":poke788,52:poke53280,0:poke53281,0:poke56,48:clr
  2. 20 forx=0to6:s(x)=192+x:next x:v=53248
  3. 25 dimsc$(10),sc(10):forx=1to10:sc$(x)="***[156]rox[159]64[158]***":sc(x)=0:next x
  4. 30 forx=s(0)*64tos(6)*64+64:pokex,0:nextx
  5. 36 forx=0to50:reada:pokes(1)*64+6+x,a:next x:poke2041,s(1)
  6. 37 data64,20,1,16,170,4,11,255,224,21,85,88,148,0,22,144,0,6,144,0,6,144,0,6
  7. 38 data144,0,6,144,0,6,159,255,246,4,0,16,4,0,16,16,0,4,16,0,4,64,0,1,64,0,1
  8. 40 forx=0to7:reada:pokes(0)*64+25+x*3,a:next x
  9. 45 data24,62,124,255,254,126,94,8
  10. 50 forx=0to56:reada:pokes(6)*64+x,a:next x:poke2046,s(6)
  11. 55 data2,0,0,2,0,0,2,0,0,20,0,0,8,16,0,20,255,0,226,0,128,4,124,64
  12. 56 data5,66,64,4,66,64,2,66,128,1,67,0,2,254,128,4,56,64,8,40,32,16,56,16
  13. 57 data16,40,16,16,56,16,56,40,56
  14. 60 forx=0to7:reada:pokes(2)*64+25+x*3,a:next x:poke 2042,s(2)
  15. 65 data192,224,118,56,24,20,2,0
  16. 67 forx=0to9:readg(x):next x:data160,227,247,248,98,121,111,100,32,32
  17. 70 forx=0to7:reada:pokes(3)*64+25+x*3,a:next x:poke2043,s(3)
  18. 75 data8,20,28,28,28,28,42,8
  19. 80 forx=0to7:reada:pokes(4)*64+25+x*3,a:next x:poke2044,s(4)
  20. 85 data3,7,14,60,24,40,64,0
  21. 87 forx=0to7:reada:pokes(5)*64+25+x*3,a:next x:poke2045,s(5)
  22. 88 data66,0,4,32,0,34,128,16
  23. 90 vo=54296:wa=54276:at=54277:h=54273:lo=54272:ph=54275:pl=54274:su=54278
  24. 95 pokevo,15:fi=0:a$="":key=197:pokeat+14,32:pokesu+14,255
  25. 98 forx=watowa+14step7:pokex,17:pokex,0:next
  26. 100 gosub20000:print"[147]":forx=1to18:print"";:next
  27. 110 print"[158][185][162][185][175][185][162][185][162][175][162][185][175][185][175][164][164][162][183][183][183][183][183][146][162][185][175][175][185][164][185][175][185][164][185][185][175][164][185][175][185][175]";
  28. 120 print"                                        [146]";
  29. 130 print" mond-raumschiff  #5... lande-anzeige";
  30. 132 forii=1to1000:nextii
  31. 135 forx=0to30:poke1104+rnd(1)*600,46:next:da=25:pa=3:nh=0:pt=0
  32. 140 v=53248:co=7:poke2040,s(0):pokev+16,0:pokev+45,3:pokev+21,127:aw=1
  33. 160 gosub5000:df=5:co=8:gosub7500
  34. 170 forx=v+41tov+43:pokex,5:next
  35. 180 pokev+44,1
  36. 190 df=df+2:rox=11:co=co-1
  37. 200 sx=180:sy=10:pokev,sx:pokev+1,sy:pokev+39,co:hi=0:rox=rox-1:ifrox=0then8000
  38. 210 xo=rnd(1):ifrnd(1)<.5thenxo=-xo
  39. 220 yo=.5:s=df:ifs>20thens=20
  40. 230 pokewa,129:pokeh,200:pokelo,255:pokevo,1:pokev+30,0:pokev+16,0
  41. 300 sx=sx+xo*(s/3):sy=sy+yo*s
  42. 305 ifsx>255andhi=0thenhi=1:pokev+16,peek(v+16)+1:sx=0
  43. 310 pokev,sx:pokev+1,sy:ifsy>190then1000
  44. 315 iffithengosub6000:iferthen7000
  45. 320 s=s+.3:ifs>20thens=20
  46. 330 pokevo,s/2
  47. 340 if(peek(v+30)and65)=65then10000
  48. 400 p=peek(key):ifp<>64then3000
  49. 410 if fithengosub6000:iferthen7000
  50. 500 goto300
  51. 1000 t=sx+256*hi:sp=int(t/8)-2:pokev,0:pokev+1,0:pokev+16,0:pokevo,15:pokeh,1
  52. 1010 pokewa+14,0:fi=0:pokery,0:forz=1tornd(1)*4:da=da-1:ifda=0then12000
  53. 1016 gosub7500
  54. 1020 forx=1to10:pokev+17,26:ford=1to10:next:pokev+17,27:pokevo,15-(x/2)
  55. 1030 ford=1to10:nextd,x
  56. 1040 q=1784+sp:p=peek(q):ifp=32thenq=1824+sp:p=peek(q):pokewa,0
  57. 1050 gr=0:forx=0to9:ifp=g(x)thengr=x:x=10
  58. 1060 next x:pokeq,g(gr+1):next z
  59. 1100 goto200
  60. 3000 iffithen4000
  61. 3005 ifp<>31andp<>28andp<>39then4000
  62. 3010 ifp<>31then3100
  63. 3020 mx=164:my=170:rx=v+4:ry=v+5:xc=-1:n=4:goto3500
  64. 3100 ifp<>28then3200
  65. 3110 mx=164:my=170:rx=v+6:ry=v+7:xc=0:n=8:goto3500
  66. 3200 ifp<>39then4000
  67. 3210 mx=164:my=170:rx=v+8:ry=v+9:xc=1:n=16
  68. 3500 forx=v+4tov+9:pokex,0:next:pokerx,mx:pokery,my:h2=0:n=n+1
  69. 3505 pokewa+14,129:pokeh+14,255-my:pokev+16,hi
  70. 3510 fi=1:goto410
  71. 4000 ifp=10then4500
  72. 4002 ifp=41then4700
  73. 4005 ifp<>60orpa=0then410
  74. 4006 pa=pa-1:pokewa,19:pokevo,15:mx=sx:my=sy
  75. 4010 forx=1to30:poke53281,3:pokeh,29:poke53281,0:pokeh,200:next:gosub7500
  76. 4020 goto7000
  77. 4500 pokev+21,64:pokewa,129:pokewa+7,0:pokewa+14,0:pokevo,0
  78. 4505 print"[150]***  m i s s i o n    abgebrochen    ***"
  79. 4510 forx=1to15step.3:pokevo,x:yy=yy-.05*x:pokev+13,yy:next x
  80. 4520 pokewa,17:pokewa+7,17:pokeh,32:pokeh+7,33:pokelo,yy:pokelo+7,yy+10
  81. 4530 yy=yy-.75:pokev+13,yy:pokeh,255-yy:pokeh+7,249-yy:ifyy>6then4530
  82. 4540 goto11000
  83. 4700 print"[144]   *** pause modus - 'p' fuer neustart ***"
  84. 4705 poke53281,1:ifpeek(key)<>64then4700
  85. 4710 ifpeek(key)<>41then4710
  86. 4715 ifpeek(key)<>64then4715
  87. 4720 poke53281,0:print"                                      ":goto410
  88. 5000 pokeat,32:pokesu,255:pokeat+7,32:pokesu+7,255:pokeh,17:pokelo,3
  89. 5001 pokevo,15:pokewa,17:pokewa+7,17
  90. 5002 pokeh+7,16
  91. 5005 pokelo+7,3:pokeph,8:pokepl,8
  92. 5010 yy=3:l=s(6)*64+13:pokev+12,168
  93. 5020 pokel,16:pokel-3,16:forx=1to8:yy=yy+.3:pokev+13,yy:pokelo,yy:pokelo+7,yy
  94. 5025 nextx
  95. 5030 gosub5500:ifyy>175then5060
  96. 5040 pokel,0:pokel-3,0:forx=1to8:yy=yy+.3:pokev+13,yy:pokelo,yy:pokelo+7,yy
  97. 5050 next x:goto5020
  98. 5060 print"       [150]rueckstoss-aggregate aktiviert[146]        ";
  99. 5061 forii=1to1000:nextii
  100. 5062 pokewa,129:pokewa+7,129:pokeh,7:forx=15to1step-.08:pokevo,x:gosub5500
  101. 5065 yy=yy+.04:pokev+13,yy:next x
  102. 5067 print"     ***  landung erfolgreich  ***      ";
  103. 5070 pokewa,17:pokewa+7,0
  104. 5080 pokevo,15:forx=1to5:print"[150]0":pokeh,20:fordl=1to100:next
  105. 5090 print"0":pokeh,0:fordl=1to100:next:next
  106. 5100 print"                     "
  107. 5110 fordl=1to1000:next:print"[144]meteor-schauer..alle zur raketen-station";
  108. 5115 pokewa,17:forx=1to9:poke53281,x:forz=0to40step.5
  109. 5120 pokeh,z:next z:next x:poke53281,0
  110. 5200 print"                                        ";:return
  111. 5500 print"[156] hoehe  [146]  [159]";185-int(yy);" "
  112. 5510 return
  113. 6000 mx=mx+xc*8:ifmx>255thenmx=mx-255:pokev+16,peek(v+16)+16
  114. 6010 my=my-8:ifmy<50thenpokery,0:fi=0:pokewa+14,0:return
  115. 6020 pokerx,mx:pokery,my:er=0:pokeh+14,255-my:pokevo,15
  116. 6025 if(peek(v+30)andn)=nthen6200
  117. 6100 return
  118. 6200 er=1:pokewa+14,0:pt=pt+aw*100:goto7500
  119. 7000 pokeh,6:pokevo,15:pokev+1,0:pokery,0:nh=nh+1:pokewa,129
  120. 7005 ifhi=1thenpokev+16,32
  121. 7010 forx=15to0step-.3:pokev+10,sx:pokev+11,sy:pokevo,x:pokev+29,32:pokev+23,32
  122. 7020 pokev+10,sx:pokev+11,sy+4:pokevo,x:pokev+29,0:pokev+23,0:next x
  123. 7030 pokev+11,0:fi=0:goto200
  124. 7500 print"[156]stand:";pt;"[157]   [159]panik:";pa;"[157] ";
  125. 7505 print"  [156]high:";sc(1)
  126. 7506 c$="[156]":ifda<10thenc$="[150]"
  127. 7507 x=fre(0):rem avoids garbage collection
  128. 7508 ifda=0thenprint"  ":return
  129. 7510 print"[158]zustand:";c$;:forx=1toda:print"[208]";:next x:print"[146] ";:return
  130. 8000 print"[144] meteor-angriff ";aw;"[157] beendet!!"
  131. 8010 print"        bonus von 100 *";aw
  132. 8020 pt=pt+aw*100:pokevo,15:pokewa,33:forx=0to10:poke53281,rnd(1)*16:fory=0to60
  133. 8030 pokeh,y:nexty:nextx:pokewa,0:poke53281,0
  134. 8040 print"                                       "
  135. 8045 print"                         ":gosub7500
  136. 8050 aw=aw+1:ifaw<7then190
  137. 8060 goto15000
  138. 10000 print"[147]     *** mondbasis zerstoert!  ***      "
  139. 10010 pokev+21,32:pokewa,129:pokeh,rnd(1)*254:forx=15to0step-.1
  140. 10020 pokev+10,170:pokev+11,180:pokev+23,0:pokev+29,0:pokevo,x
  141. 10030 pokev+10,166:pokev+11,174:pokev+23,2:pokev+29,32:pokev,0:next x
  142. 10040 pokev+21,0:pokewa,0:bl=1
  143. 11000 print"[147]dein ergebnis ... ";pt
  144. 11005 pokewa,0:pokewa+7,0:pokewa+14,0
  145. 11010 print"addiert wird ein bonus fuer";int(nh*100/60)
  146. 11020 print"prozent korrekte schuesse."b1=int((nh/60)*5000)
  147. 11030 print"bonus:";b1:pt=pt+b1
  148. 11040 ifbl=1thenbl=0:goto11100
  149. 11050 print"und ein weiterer bonus fuer beendigung"
  150. 11060 print"mit intakter mond-basis!!!"
  151. 11070 print"bonus: 5000 pts.":pt=pt+5000
  152. 11100 print"[158]dein endergebnis war dies[159]";pt
  153. 11110 forx=0to20:geta$:next x:z=0:forx=1to10:ifpt>sc(x)thenz=x:x=11
  154. 11120 next x:ifz=0then11500
  155. 11130 print"gib name fuer highscore ein:";
  156. 11140 inputa$:iflen(a$)>15thena$=left$(a$,15)
  157. 11150 ifz=10then11200
  158. 11160 forx=9tozstep-1:sc(x+1)=sc(x):sc$(x+1)=sc$(x):next x
  159. 11200 sc(z)=pt:sc$(z)=a$:fi=0
  160. 11500 print"[147][158]rox-64 allzeit beste"
  161. 11510 print"[156][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  162. 11520 forx=1to9:print"[159]#";x;tab(10);"";sc(x);tab(23);"[158]";sc$(x)
  163. 11530 next x:x=fre(0)
  164. 11540 print"    drueck 'space' fuer's naechste spiel"
  165. 11550 p=peek(key):ifp<>60then11550
  166. 11560 goto100
  167. 12000 print"      ***gefaehrliche aktivitaeten***":gosub7500
  168. 12010 pokewa,129:pokeh,5:forx=15to0step-.07:pokev+17,26:ford=1to10:next
  169. 12020 pokev+17,27:ford=1to10:next:pokevo,x:next x:goto 10000
  170. 15000 pokev+21,66:pokev+28,2:pokev+37,7:pokev+38,2
  171. 15005 print"mission beendet. mutterschiff-bonus 5000"
  172. 15010 pokev+23,2:pokev+29,2:pokev+40,4:pokevo,15:pokewa,33:pokewa+7,33
  173. 15015 pt=pt+5000:gosub7500
  174. 15020 pokeh,2:pokeh+7,2:pokelo,1:pokelo+7,6:pokev+3,70
  175. 15030 forx=0to156step.2:pokev+2,x:cl=cl+.3:ifcl>15thencl=0
  176. 15040 pokev+40,cl:pokev+37,15-cl:next x
  177. 15060 pokewa+14,129:forx=15to0step-.1:yy=yy-.05*(15-x):pokev+13,yy:pokev+38,x
  178. 15065 next x:pokewa+14,17
  179. 15070 yy=yy-.75:pokev+13,yy:pokeh+14,200-yy:ifyy>77then15070
  180. 15080 pokev+38,2:pokewa+14,0
  181. 15090 forx=156to226step.2:pokev+2,x
  182. 15095 yy=yy-.2:pokev+13,yy:pokev+12,x+12:cl=cl+1:ifcl>15thencl=0
  183. 15096 pokev+40,cl:pokev+37,15-cl
  184. 15100 pokev+3,227-x:next x:goto11000
  185. 20000 print"[147]  [158][209][209][209][209]   [209][209][209]  [209]   [209]"
  186. 20010 print"  [158][209]   [209] [209]   [209]   [209]"
  187. 20020 print"  [158][209][209][209][209]  [209]   [209]   [209]"
  188. 20030 print"  [158][209] [209]   [209]   [209]  [209] [209]"
  189. 20040 print"  [158][209]  [209]   [209][209][209]  [209]   [209]"
  190. 20060 print"[153]verteidige die mondbasis. schiesse die"
  191. 20070 print"raketen auf die fallenden meteore ab."
  192. 20080 print"zu viele beruehrungen mit dem boden"
  193. 20085 print"bringen ein erdbeben!  bonus: 60 meteore"
  194. 20090 print"und: schuetze das mutterschiff!!!!"
  195. 20100 print"[158]kontrollen: [159]v,b,n [158]feuern raketen.  [159]space"
  196. 20110 print"[158]aktiviert selbstzerstoerung. [159]a[158] startet!!"
  197. 20120 forx=53248to53248+16:pokex,0:next
  198. 20130 print"[159]p[158] ist 'pause'. ";:print"[150] drueck [159]s[150] um anzufangen![146]";
  199. 20140 ifpeek(197)<>13then20140
  200. 20150 return
  201.